home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / Multiple.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  870 b   |  34 lines
  1. /* Example of MULTIPLE_SELECT. Note that you can do this with STRING_MODE, too */
  2.  
  3. /* Get a ReqDef structure */
  4. rq=rxi_GetReq()
  5. IF rq == '' | rq == 0 THEN SAY 'ReqDef allocation error'
  6.  
  7. /* Do the File Requester with MULTIPLE_SELECT and INFO_SUPPRESS */
  8. path=rxi_ReqWindow(rq,'Make numerous selections',4096+2048,,,,,,0)
  9. IF path == '' THEN SAY 'Cancelled'
  10.  
  11. IF path > '' THEN DO
  12. /* Now let's go through the list, and print out the entire path for each selection */
  13.  
  14. /* First, we call FirstReq once to get the first selection. */
  15. fname = rxi_FirstReq(rq)
  16.  
  17. DO WHILE fname > ''
  18.  
  19.  /* Make the full path (ie append the filename to the dir) */
  20.  /* If we were using STRING_MODE, we would skip this */
  21. fname = rxi_GetPath(rq,fname)
  22.  
  23. /* Print out this selection */
  24. SAY fname
  25.  
  26. /* Get the next selection */
  27. fname = rxi_NextReq(rq)
  28.  
  29.  END
  30.  END
  31.  
  32. /* Free the ReqDef */
  33. rq=rxi_EndReq(rq)
  34.